﻿Public Class frmUsuariosAgregar

    Private mMantenimientoBE As BE.Usuarios
    Private mMantenimientoBS As BS.Usuarios

    Function DatosValidos() As Boolean

        Me.txtNombreCompleto.Text = Me.txtNombreCompleto.Text.Trim
        Me.txtIdentificacion.Text = Me.txtIdentificacion.Text.Trim
        Me.txtNombreUsuario.Text = Me.txtNombreUsuario.Text.Trim
        Me.txtContrasena.Text = Me.txtContrasena.Text.Trim

        If Me.txtNombreCompleto.Text = String.Empty Then
            MessageBox.Show("Nombre Completo es requerido", "Validación", MessageBoxButtons.OK)
            Return False
        End If
        If Me.txtIdentificacion.Text = String.Empty Then
            MessageBox.Show("Identificación es requerida", "Validación", MessageBoxButtons.OK)
            Return False
        End If
        If Me.txtNombreUsuario.Text = String.Empty Then
            MessageBox.Show("Nombre Usuario es requerido", "Validación", MessageBoxButtons.OK)
            Return False
        End If
        If Me.txtContrasena.Text = String.Empty Then
            MessageBox.Show("Contraseña es requerida", "Validación", MessageBoxButtons.OK)
            Return False
        End If

        Return True
    End Function

    Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
        Me.mMantenimientoBS = New BS.Usuarios

        If DatosValidos() Then

            Me.mMantenimientoBE = New BE.Usuarios

            mMantenimientoBE.NombreCompleto = txtNombreCompleto.Text
            mMantenimientoBE.Identificacion = txtIdentificacion.Text
            mMantenimientoBE.NombreUsuario = txtNombreUsuario.Text
            mMantenimientoBE.Contrasena = txtContrasena.Text
            mMantenimientoBE.Estado = BE.Estado.Inhabilitado

            If rbAdministrador.Checked Then
                mMantenimientoBE.PerfilUsuario = BE.PerfilUsuario.Administrador
            End If
            If rbCajero.Checked Then
                mMantenimientoBE.PerfilUsuario = BE.PerfilUsuario.Cajero
            End If

            Try
                mMantenimientoBS.Agregar(mMantenimientoBE)
            Catch ex As Exception
                MessageBox.Show("Problemas al Insertar Los datos")
            End Try

            Me.DialogResult = Windows.Forms.DialogResult.OK
        End If
    End Sub

    Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
        Me.DialogResult = Windows.Forms.DialogResult.Cancel
    End Sub

End Class